home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
TEMP.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
4KB
|
152 lines
10 HOME : HGR : HCOLOR= 3
20 A = 20:B = 30:C = 35:D = 40:E = 35:F = 45:G = 50:H = 55:I = 50:J = 60
30 K = 60:L = 75:M = 60:N = 80:O = 60:P = 95:Q = 60:R = 100
80 FOR Z = 1 TO 5
90 HCOLOR= 3
100 X = A:Y = B: GOSUB 1140
105 X = C:Y = D: GOSUB 1202
110 X = E:Y = F: GOSUB 1140
115 X = G:Y = H: GOSUB 1202
120 X = I:Y = J: GOSUB 1140
125 X = K:Y = L: GOSUB 1232
130 X = M:Y = N: GOSUB 1140
135 X = O:Y = P: GOSUB 1212
140 X = Q:Y = R: GOSUB 1140
190 HCOLOR= 0
200 X = A:Y = B: GOSUB 1140
205 X = C:Y = D: GOSUB 1202
210 X = E:Y = F: GOSUB 1140
215 X = G:Y = H: GOSUB 1202
220 X = I:Y = J: GOSUB 1140
225 X = K:Y = L: GOSUB 1232
230 X = M:Y = N: GOSUB 1140
235 X = O:Y = P: GOSUB 1212
240 X = Q:Y = R: GOSUB 1140
250 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
260 NEXT Z
270 C = C -3:G = G -5:B = B -5:K = K -7:F = F -3
280 FOR Z = 1 TO 5
290 HCOLOR= 3
300 X = A:Y = B: GOSUB 1140
305 X = C:Y = D: GOSUB 1232
310 X = E:Y = F: GOSUB 1140
315 X = G:Y = H: GOSUB 1232
320 X = I:Y = J: GOSUB 1140
325 X = K:Y = L: GOSUB 1212
330 X = M:Y = N: GOSUB 1140
335 X = O:Y = P: GOSUB 1212
337 X = Q:Y = R: GOSUB 1140
340 HCOLOR= 0
345 X = A:Y = B: GOSUB 1140
350 X = C:Y = D: GOSUB 1232
355 X = E:Y = F: GOSUB 1140
360 X = G:Y = H: GOSUB 1232
365 X = I:Y = J: GOSUB 1140
370 X = K:Y = L: GOSUB 1212
375 X = M:Y = N: GOSUB 1140
380 X = O:Y = P: GOSUB 1212
385 X = Q:Y = R: GOSUB 1140
390 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
395 NEXT Z
400 C = C -4:D = D -5:G = G -5:B = B -5:F = F -3:K = K -3:E = E +4:A = A +3
410 FOR Z = 1 TO 5
415 HCOLOR= 3
420 X = A:Y = B: GOSUB 1140
425 X = C:Y = D: GOSUB 1242
430 X = E:Y = F: GOSUB 1140
435 X = G:Y = H: GOSUB 1212
440 X = I:Y = J: GOSUB 1140
445 X = K:Y = L: GOSUB 1212
450 X = M:Y = N: GOSUB 1140
455 X = O:Y = P: GOSUB 1212
460 X = Q:Y = R: GOSUB 1140
465 HCOLOR= 0
470 X = A:Y = B: GOSUB 1140
475 X = C:Y = D: GOSUB 1242
480 X = E:Y = F: GOSUB 1140
485 X = G:Y = H: GOSUB 1212
490 X = I:Y = J: GOSUB 1140
495 X = K:Y = L: GOSUB 1212
500 X = M:Y = N: GOSUB 1140
505 X = O:Y = P: GOSUB 1212
510 X = Q:Y = R: GOSUB 1140
515 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
520 NEXT Z
540 G = G -6:K = K -6:B = B +4:C = C -3:D = D -2:E = E +1
550 FOR Z = 1 TO 5
555 HCOLOR= 3
560 X = A:Y = B: GOSUB 1140
565 X = C:Y = D: GOSUB 1222
570 X = E:Y = F: GOSUB 1140
575 X = G:Y = H: GOSUB 1242
580 X = I:Y = J: GOSUB 1140
585 X = K:Y = L: GOSUB 1242
590 X = M:Y = N: GOSUB 1140
595 X = O:Y = P: GOSUB 1212
600 X = Q:Y = R: GOSUB 1140
605 HCOLOR= 0
610 X = A:Y = B: GOSUB 1140
615 X = C:Y = D: GOSUB 1222
620 X = E:Y = F: GOSUB 1140
625 X = G:Y = H: GOSUB 1242
630 X = I:Y = J: GOSUB 1140
635 X = K:Y = L: GOSUB 1242
640 X = M:Y = N: GOSUB 1140
645 X = O:Y = P: GOSUB 1212
650 X = Q:Y = R: GOSUB 1140
655 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
660 NEXT Z
670 K = K -2:G = G -3:H = H -2:E = E +4:F = F +2
675 HCOLOR= 3
690 X = E:Y = F: GOSUB 1140
695 X = G:Y = H: GOSUB 1222
700 X = I:Y = J: GOSUB 1140
705 X = K:Y = L: GOSUB 1242
710 X = M:Y = N: GOSUB 1140
715 X = O:Y = P: GOSUB 1212
720 X = Q:Y = R: GOSUB 1140
740 FOR Z = 1 TO 5
745 HCOLOR= 3
750 X = A:Y = B: GOSUB 1140
755 HCOLOR= 0
760 X = A:Y = B: GOSUB 1140
765 A = A +5: NEXT Z
770 HCOLOR= 3
775 X = A:Y = B: GOSUB 1140
950 END
999 REM SOLID HORIZ
1002 HPLOT X +2,Y -1 TO X +4,Y -1
1004 HPLOT X +1,Y -2 TO X +5,Y -2
1006 HPLOT X +1,Y -3 TO X +5,Y -3
1008 HPLOT X +1,Y -4 TO X +5,Y -4
1010 HPLOT X +2,Y -5 TO X +4,Y -5
1014 RETURN
1020 REM LARGER SOL HORIZ
1022 HPLOT X +1,Y TO X +5,Y
1024 HPLOT X,Y -1 TO X +6,Y -1
1026 HPLOT X,Y -2 TO X +6,Y -2
1028 HPLOT X,Y -3 TO X +6,Y -3
1030 HPLOT X,Y -4 TO X +6,Y -4
1032 HPLOT X,Y -5 TO X +6,Y -5
1034 HPLOT X +1,Y -6 TO X +5,Y -6
1036 RETURN
1056 RETURN
1140 REM LARGER SOL VERT
1142 HPLOT X,Y -1 TO X,Y -5
1144 HPLOT X +1,Y TO X +1,Y -6
1146 HPLOT X +2,Y TO X +2,Y -6
1148 HPLOT X +3,Y TO X +3,Y -6
1150 HPLOT X +4,Y TO X +4,Y -6
1152 HPLOT X +5,Y TO X +5,Y -6
1154 HPLOT X +6,Y -1 TO X +6,Y -5
1156 RETURN
1200 REM BACK
1202 HPLOT X +3,Y TO X -10,Y -12: RETURN
1210 REM STRAIGHT
1212 HPLOT X +3,Y TO X +3,Y -15: RETURN
1220 REM FORWARD
1222 HPLOT X +3,Y TO X +16,Y -12: RETURN
1230 REM SHARP BACK
1232 HPLOT X +3,Y TO X -6,Y -15: RETURN
1240 REM SHARP forward
1242 HPLOT X +3,Y TO X +10,Y -15: RETURN